﻿
''' <summary>
''' Represents a regular expression accepts a literal character
''' </summary>
Public NotInheritable Class LiteralChar
    Inherits RegularExpression

    Public Sub New(ByVal value As Char)
        MyBase.New(RegularExpressionType.LiteralChar)
        m_value = value
    End Sub

    Private m_value As Char
    Public ReadOnly Property Value() As Char
        Get
            Return m_value
        End Get
    End Property

End Class
